home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / guh < prev    next >
Text File  |  2002-09-18  |  869b  |  54 lines
  1. # test
  2. /*
  3.  * guh Copyright 1993 - Dont ask me why i called it that.  I just did.
  4.  *
  5.  * Written by Jeremy Nelson (jnelson@acronet.net)
  6.  * Requires ircII-EPIC
  7.  *
  8.  * General aliases that are useful for tracking
  9.  *  "whatchan" - returns all the channels a person is on
  10.  *  "is_on" - returns the nickname of a user if s/he is on.
  11.  *  "uh" - takes a list of names and returns a list of userhosts
  12.  *         corresponding to those nicks
  13.  *  "inc" - more for antiquity's sake, proves a point
  14.  */
  15.  
  16. alias whatchan 
  17. {
  18.     stack push on 319
  19.     ^on ^319 * {
  20.         stack pop on 319
  21.         return $1-
  22.     }
  23.     wait for ^whois $0
  24. }
  25.  
  26. alias is_on 
  27. {
  28.     stack push on 303
  29.     ^on ^303 * {
  30.         stack pop on 303
  31.         return $0
  32.     }
  33.     wait for ison $0
  34. }
  35.  
  36. alias uh 
  37. {
  38.     ^local blahblah
  39.     wait for {
  40.         ^userhost $* -cmd {
  41.             bless
  42.             push blahblah $3@$4
  43.         }
  44.     }
  45.     return $blahblah
  46. }
  47.  
  48. alias inc 
  49. {
  50.     @ $0 += [$1]?[$1]:1
  51. }
  52.  
  53. #hop'93
  54.